﻿Imports System.IO
Imports ML.Framework.Collections

Public Class VideoMediaFile
    Inherits MediaFileBase
    Implements IVideoMediaFile

#Region "Fields"
    Private _Actors As ReadOnlyCollection(Of Actor)
    Private _Length As TimeSpan
    Private _Producer As Producer
#End Region

#Region "Properties"
    Public ReadOnly Property Actors() As System.Collections.Generic.IEnumerable(Of Actor) Implements IVideoMediaFile.Actors
        Get
            Return _Actors
        End Get
    End Property

    Public ReadOnly Property Length() As System.TimeSpan Implements IVideoMediaFile.Length
        Get
            Return _Length
        End Get
    End Property

    Public ReadOnly Property Producer() As Producer Implements IVideoMediaFile.Producer
        Get
            Return _Producer
        End Get
    End Property
#End Region

#Region "Constructors"
    Public Sub New(ByVal Source As String)
        MyBase.New(Source)
    End Sub

    Public Sub New(ByVal Source As FileInfo)
        MyBase.New(Source)
    End Sub
#End Region

End Class
